home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
UTILENUS
/
MARXMENU.LZH
/
MENUS.EXE
/
FORMAT.MNU
< prev
next >
Wrap
Text File
|
1991-03-22
|
2KB
|
117 lines
Comment
===================================================
DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel
This is a File Compression Overlay fo DM3. This allows you to
compress marked files.
===================================================
EndComment
Var ForeColor BackColor %Option %Message
if ColorScreen
BoxHeaderColor Yellow Mag
InverseColor Yellow Mag
BoxBorderColor LGreen Brown
BoxInsideColor Grey Brown
else
BoxHeaderColor Black Grey
InverseColor Black Grey
BoxBorderColor White Black
BoxInsideColor Grey Black
endif
ClearScreenOnExit Off
BlankTime = 10
BlankMessage = 'Executing DM3'
BoxHeader = ' Format Floppy Disk Menu '
DrawBox 21 7 44 7
TextColor Yellow Brown
ClearLine 205
TextColor Grey Brown
UseArrows
CapsColor Yellow Brown
Writeln
Writeln ' 1 - Format 360 5 - Format /S 360'
Writeln ' 2 - Format 1.2M 6 - Format /S 1.2M'
Writeln ' 3 - Format 720 7 - Format /S 720'
Write ' 4 - Format 1.4M 8 - Format /S 1.4M'
OnKey '1'
|%Message = '360k Format with no System Files.'
|%Option = '/4'
|Format2
OnKey '2'
|%Message = '1.2m Format with no System Files.'
|%Option = ''
|Format2
OnKey '3'
|%Message = '720k Format with no System Files.'
|%Option = '/N:9/T:80'
|Format2
OnKey '4'
|%Message = '1.4m Format with no System Files.'
|%Option = '/N:18/T:80'
|Format2
OnKey '5'
|%Message = '360k Format with System Files.'
|%Option = '/4/S'
|Format2
OnKey '6'
|%Message = '1.2m Format with System Files.'
|%Option = '/S'
|Format2
OnKey '7'
|%Message = '720k Format with System Files.'
|%Option = '/N:9/T:80/S'
|Format2
OnKey '8'
|%Message = '1.4m Format with System Files.'
|%Option = '/N:18/T:80/S'
|Format2
OnKey 'E'
ME %MenuFileName
:Format2
if DosVersionString >= '5.00' then %Option = %Option + '/U'
BoxBorderColor LCyan Blue
BoxInsideColor White Blue
BoxHeader = ' Drive '
DrawBox 50 12 11 5
TextColor Yellow Blue
ClearLine 205
TextColor White Blue
UseArrows
Writeln
Writeln ' A:'
Write ' B:'
OnKey 'A'
@Echo Off
@Echo Formatting Drive A: %Message
@Echo To abort, press CTRL-C.
@Echo .
FORMAT A:%Option
OnKey 'B'
@Echo Off
@Echo Formatting Drive B: %Message
@Echo To abort, press CTRL-C.
@Echo .
FORMAT B:%Option